home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / PsetSpeed.asc < prev    next >
Text File  |  1998-11-11  |  873b  |  52 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Pset  
  13. '
  14. Screen Open 0,320,256,64,$0
  15. Curs Off : Flash Off : Cls 0
  16. EE=Execall(-132)
  17. '
  18. Cls 0
  19. Timer=0
  20. For X=0 To 319
  21.    For Y=0 To 255
  22.       Wb Pset X,Y,X+Y
  23.    Next Y
  24. Next X
  25. A=Timer
  26. '
  27. Cls 0
  28. Timer=0
  29. For X=0 To 319
  30.    For Y=0 To 255
  31.       Plot X,Y,X+Y
  32.    Next Y
  33. Next X
  34. B=Timer
  35. '
  36. 'Utiliser ce teste si vous possedez
  37. 'l'extention Turbo...
  38. 'Cls 0 
  39. 'Timer=0 
  40. 'For X=0 To 319
  41. 'For Y=0 To 255
  42. 'F Plot X,Y,X+Y
  43. 'Next Y
  44. 'Next X
  45. 'C=Timer 
  46. '
  47. EE=Execall(-138)
  48. Print "Phil:";A
  49. Print "Amos:";B
  50. Print "Turbo:";C
  51. '
  52.